#!/usr/bin/perl
use strict;
use warnings;

my @array = (1,2,3);
foreach my $item (@array) {
  $item++;
}
print "@array\n";
